﻿<!-- #include file="mymin.asp" -->
<%
Call Head()
w "<card title='文章分类'><p>请选择要移动的分类:<br/>"

dim id,classid,rs,isEssay
id=int(request.QueryString("id"))
classid=int(request.QueryString("classid"))
isEssay=0
If classid=0 Then isEssay=1

set rs=server.createobject("adodb.recordset")
rs.open "select classid,class from 74hu_list order by classid desc",myconn,1,1
	If Not rs.eof	Then
	dim page,count,pagesize,pagecount,i
	PageSize=15
	Count=rs.recordcount
	page=getN("page",1)
	if page<1 then page=1
	pagecount=(count+pagesize-1)\pagesize
	if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	For i=1 To PageSize
	If rs.eof Then Exit For
%><a href="wzmove.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;classid=<%=rs("classid")%>&amp;is_essay=<%=isEssay%>"><%=nowml(rs("class"))%></a><br/>
<%     
	rs.moveNext
	Next
	w showPage("move.asp", "id:"&id, page, pageCount)
Else
	w "(没有栏目)"

end if
%><br/>
<a href="adminsmscl.asp?sid=<%=sid%>&amp;id=<%=classid%>">[文章列表]</a><br/>
<a href="wzclass.asp?sid=<%=sid%>">[文章分类]</a><%Call Last%>